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SECTION  1.  GENERAL 


1.1  Purpose  of  the  User's  Manual.  The  objective  of  the 
User  's  Manual  for  RP/AGEFORCE  is  to  provide  the  user  's  non- 
ADP  personnel  with  the  information  necessary  to  effectively 
use  the  system. 

1.2  Project  References.  RP/AGEFORCE  is  a  generalized,  on¬ 
line  ageing  model  used  to  "game"  the  effects  of  various 
accessions  and  losses  on  a  predetermined  force.  The  program 
was  developed  at  AFMPC  for  any  user  with  access  to  the  AFMPC 
computer . 

Applicable  documents  are: 

a.  "AGEFORCE  AGGREGATE  MODEL,”  Capt  Roger  B.  Boener, 

2  August  1974. 

b.  DOD  "Automated  Data  Systems  Documentation  Standards 
Standard  7935.1-3,  13  September  1977. 

1.3  Terms  and  Abbreviations 


a.  AGER  -  refers  to  RP/AGEFORCE 

b.  FORCE  -  user's  group  to  be  aged  (i.e.,  active 
airmen,  active  officers,  civilians,  etc.) 

c.  FORCE  STRUCTURE  -  Any  population  that  can  be 
classified  (structured)  by  year-group,  could  be  commissioned, 
enlisted,  minority,  civilian,  etc. 

1.4  Security  and  Privacy.  AGER  operates  in  an  "UNCLASSIFIED 
environment . 

SECTION  2.  SYSTEM  SUMMARY 

2.1  System  Application.  AGER  is  a  quick-response  prediction 
tool  that  can  be  executed  from  the  user  's  work  area  over  a 
Burroughs  TD-800  terminal. 

a.  AGER  provides  some  flexibility  as  the  user  has 
two  options  for  inputting  beginning  force  structures  and 
retention  rates.  The  first  option  is  to  enter  force  struc¬ 
tures  and  retention  rates  for  each  run;  desirable  for  one¬ 
time  runs.  The  second  option  is  to  input  force  and  rate 
data  and  save  it  on  a  computer  disk  file  for  subsequent  use 
and  reuse.  With  either  option  the  user  can  change  data  by 
using  AGER 's  update  capability. 


b.  The  user  can  also  select  either  of  two  operating 
modes  for  AGER.  The  first  is  the  simple  ageing  mode  where 
retention  rates  are  applied  against  force  levels;  accessions, 
if  provided,  are  added  in.  The  second  is  the  steady-state 
mode  where  the  goal  is  to  attain  a  desired  force  level  after 
a  specified  number  of  years.  The  model  calculates  the  number 
of  accessions  needed  each  year  to  first  attain  the  steady, 
state  force,  and  then  maintain  that  steady  state  force  through¬ 
out  the  ageing  period.  In  either  mode,  the  resulting,  report 
shows  the  force  distribution  by  year-group  after  each  year 
of  ageing,  the  losses  each  year,  and  the  total  force  level 
each  year. 

2.2  System  Operation.  A  user  can  run  AGER  anytime  computer 
resources  are  available.  The  program  is  usually  available 
during  normal  duty  hours. 

2.3  System  Configuration.  AGER  runs  on  the  BURROUGHS  6700 
computer  located  at  AFMPC ,  Randolph  AFB,  Texas.  The  system 
uses  TD-800  terminals  at  various  AFMPC  user  locations.  All 
interaction  is  between  these  two  devices. 

2.4  System  Organization.  The  system  contains  only  one 
program ,  RP/AGEFORCE,  which  does  all  the  processing. 

2.5  Performance. 

a.  Input  -  all  user  inputs  are  via  TD-800  terminal. 

The  system  asks  for  each  input  needed  and  states  how  it  is 
to  be  entered. 

b.  Output  -  output  is  via  TD-800  terminal  transmitted 
directly  to  the  user. 

c.  Response  time  -  since  AGER  is  on-line,  response 
time  is  relatively  quick. 

d.  Limitation  -  limitations  are  interactively  provided 
by  the  system  when  it  asks  for  an  input. 

e.  Error  rate  -  the  system  has  built-in  checks  for 
input  data  errors.  If  an  error  exists  in  the  input  data, 
the  system  asks  for  the  data  again. 

f.  Processing  time  -  due  to  user  interaction  throughout 
the  processing  cycle,  processing  time  goes  unnoticed. 

g.  Flexibility  -  AGER  takes  any  force  the  user  wishes 
to  define  by  thirty  or  less  year-groups  whether  it  be  Active 
Airmen,  minority  female  officers,  or  navigators. 


2.6  Data  Base.  The  files  that  are  referenced,  supported, 
and  kept  current  by  AGER  follow: 


a.  User's  Force  File.  This  file  is  referenced  by 
AGER  when  the  user  asks  for  it.  The  twenty  force  groups 
are  maintained  as  integer  values  with  the  twenty  sets  of 
retention  rates  maintained  as  real  numbers. 

b.  Utilization  File.  This  file  is  referenced  and 
updated  every  time  AGER  runs . 

2.7  General  Description  of  Inputs,  Processing,  Outputs. 

a.  Inputs .  All  AGER  inputs  are  accomplished  via  on¬ 
line  interface  with  the  user.  The  technique  used  is  a 
branching  method  which  asks  "YES/NO"  and  specific  data 
questions.  The  result  of  the  inputs  leads  to  a  force  with 
corresponding  retention  rates  and  various  parameters  for 
operating  modes. 

b.  Processing .  All  processing  is  done  on-line  by  the 
one  program,  RP/AGEFORCE. 

c.  Output.  The  output  product  the  user  receives  is  a 
TD-800  display  showing  the  aged  force  by  year-group  and 
ageing  years.  An  example  is  provided  as  Attachment  2. 

SECTION  3.  STAFF  FUNCTIONS  RELATED  TO  TECHNICAL  OPERATIONS 

3.1  INITIALIZATION.  To  run  AGER  a  user  must  first  follow 
standard  sign-on  procedures: 

USER:  sign-on  by  entering  usercode  and  password 

REMOTE  RESPONSE:  ENTER  FUNCTION 

USER:  RUN  AGE 

AGER  is  now  ready  to  run. 

3.2  STAFF  INPUT  REQUIREMENTS.  Before  running  AGER,  a  user 
should  gather  his  force,  retention  rate  and  accessions  data. 

a.  Cause  of  Input  -  inputs  are  required  when  displays 
from  AGER  ask  for  them.  The  force  structures,  retention 
rates  and  accessions  will  all  be  asked  for  separately. 

b.  Time  of  Input  -  all  inputs  should  be  prepared 
prior  to  running  AGER. 

c.  Origin  of  Input  -  each  user  is  responsible  for 
gathering  his  own  input  data.  The  force  must  be  defined  in 
year-groups,  retention  rates  by  year-group,  and  accessions  by 
the  ageing  year  they  will  be  gained. 


d.  Medium  of  Input  -  all  input  is  via  TD-800  series 
terminals. 


3.2.1  Input  Formats.  AGER  is  tutorial;  displays  from  the 
program  will  lead  the  user  through  required  tasks.  Following 
is  a  numerically  ordered  list  of  the  typical  displays  AGER 
presents.  In  the  next  section,  3.2.2  Composition  Rules, 
there  is  a  corresponding  list  of  descriptions  for  the  dis¬ 
plays  and  explanations  of  the  inputs  needed.  Note  that 
there  are  many  ways  to  get  through  the  program  (see  Attach¬ 
ment  3);  the  displays  below  represent  the  typical  way  when  a 
user  wants  to  make  a  data  file  and  use  force  and  rate  groups 
from  that  file. 

(1)  AGGREGATE  MODEL  TO  AGE  SELECTED  ELEMENTS  OF  THE  FORCE. 

ENTER  YOUR  7-DIGIT  AUTOVON  NUMBER  (I.E.  487-2233). 

THIS  DATA  IS  ESSENTIAL  FOR  FILE  MAINTENANCE  AND  MAY  BE 
USED  TO  VERIFY  UTILIZATION.  IF  YOU  DESIRE  TO  START 
OVER  AGAIN  WHILE  WORKING  IN  AGE  FORCE  JUST  ENTER  AN 
'END '  RESPONSE  WHEN  A  'YES  '  OR  'NO  '  RESPONSE  IS 
REQUESTED.  BE  CAREFUL  THOUGH,  IF  YOU  ENTER  AN  'END'  AT 
ANY  OTHER  TIME  THE  PROGRAM  MAY  TERMINATE  ABNORMALLY. 

(2)  YOU  DO  NOT  HAVE  A  SAVE  FILE  FOR  FORCE  AND  RATE  DATA. 

DO  YOU  WANT  TO  CREATE  A  PERMANENT  FILE?  (ENTER  YES  OR  NO) 

(3)  DO  YOU  WISH  TO  MAKE  CHANGES  TO  YOUR  DATA?  (ENTER  YES  OR  NO) 

(4)  DO  YOU  WISH  TO  CHANGE  ANY  OF  YOUR  FORCE  GROUPS?  (ENTER  YES  OR  NO) 

(5)  THERE  ARE  20  FORCE  GROUPS  AVAILABLE  FOR  YOUR  USE. 

ENTER  THE  NUMERIC  CODE  (1-20)  OF  THE  GROUP 

YOU  WISH  TO  USE. 

(6)  THE  CONFIGURATION  OF  GROUP  (1-20)  IS  PRESENTLY  AS  FOLLOWS: 

1-10  (VALUES  OF  FORCE  LEVELS  IN  YR-GROUPS  1-10) 

11-20  (VALUES  OF  FORCE  LEVELS  IN  YR-GROUPS  11-20) 

21-30  (VALUES  OF  FORCE  LEVELS  IN  YR-GROUPS  21-30) 

TO  CHANGE  THE  FORCE  LEVELS,  INPUT  YEARGROUP,  LEVEL,  YEARGROUP, 

LEVEL,  ETC.,  (EX:  2,  364,  12,  1024,  *) 

TERMINATE  INPUT  WITH  AN  ASTERISK. 

YOU  CAN  CHANGE  ANY  OR  ALL  YEAR  GROUPS  THIS  WAY. 

(7)  DO  YOU  WISH  TO  CHANGE  THE  RETENTION  RATES? 

(ENTER  YES  OR  NO) 

(8)  RETENTION  RATE  GROUPS  1  THRU  20  ARE  AVAILABLE. 

ENTER  THE  NUMERIC  CODE  OF  THE  GROUP  YOU  WISH  TO  CHANGE. 
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(9)  THE  CURRENT  RATES  ARE: 

YRS 

1-10  (RETENTION  RATES  FOR  YEAR  GROUPS  1-10) 

11-20  (RETENTION  RATES  FOR  YEAR  GROUPS  11-20) 

21-29  (RETENTION  RATES  FOR  YEAR  GROUPS  21-29) 

TO  CHANGE  RATES,  INPUT  YEARGROUP,  RATE,  YEARGROUP,  RATE,  ETC. 

(EX:  2,  .463,  15,  .376,  *). 

TERMINATE  INPUT  WITH  AN  ASTERISK. 

YOU  CAN  ENTER  ANY  OR  ALL  RATES  THIS  WAY. 

(10)  HOW  MANY  YEARS  DC  YOU  WISH  TO  AGE  THE  FORCE  1-29? 

(11)  HOW  MANY  YEAR  GROUPS  DO  YOU  WISH  TO  DISPLAY  1-30? 

(12)  IF  YOU  WANT  TO  ACHIEVE  AND  MAINTAIN  A  STEADY-STATE  FORCE 
THEN  ENTER  THE  FORCE  LEVEL  YOU  WANT  TO  ACHIEVE.  OTHERWISE 
ENTER  0  ( ZERO) . 

(13)  HOW  MANY  YEARS  DO  YOU  WANT  TO  TAKE 

TO  FIRST  ACHIEVE  THE  STEADY-STATE  FORCE?  (1-29) 

(14)  IF  YOU  WOULD  LIKE  TO  SELECT  A  FORCE  GROUP  THEN  ENTEP  YES  ELSE  NO 

(15)  THERE  ARE  20  FORCE  GROUPS  AVAILABLE  FOR  YOUR  USE. 

ENTER  THE  NUMERIC  CODE  (1-2.0)  OF 

THE  GROUP  YOU  WISH  TO  USE. 

(16)  DO  YOU  WISH  TO  USE  THE  RETENTION  RATES?  (ENTER  YES  OR  NO) 

(17)  RETENTION  RATE  GROUPS  1  THRU  20  ARE  AVAILABLE  FOR  USE. 

ENTER  THE  NUMERIC  CODE  OF  THE  GROUP  YOU  WISH  TO  USE. 

(18)  DO  YOU  INTEND  TO  USE  THE  SAME  RETENTION  RATES  FOR 
EVERY  SIMULATION  YEAR? 

(ENTER  YES  OR  NO) 

(19)  IF  YOU  WISH  TO  INPUT  ACCESSIONS  ENTER  YES  ELSE  ENTER  NO. 

(20)  ENTER  ACCESSIONS  FOR  EACH  OF  THE  (1-30)  SIMULATION  YEARS. 

EX:  100,  300,  500  ETC. 

(21)  DO  YOU  WISH  TO  INPUT  NEW  RETENTION  RATES  FOR  SIM  YR  (1-30) 

ENTER  YES  OR  NO 


(22)  IF  YOU  WISH  TO  RUN  AGAIN  ENTER  YES  ELSE  NO 


(23)  END  OF  PROGRAM. 

3.2.2  Composition  Rules.  Following  is  a  description  of  the 
AGER  displays  and  explanation  of  the  necessary  inputs.  The 
paragraph  numbers  correspond  to  those  of  the  actual  displays 
in  section  3.2.1  and  the  symbols  in  the  processing  flow 
chart . 

(1)  Your  seven  digit  AUTOVON  Phone  number  is  used  as  a 
title  for  your  force  groups  and  retention  rates  file  which 
is  stored  on  a  computer  diskpack,  and  is  also  used  to  tally 
your  utilization. 

(2)  This  message  means  that  there  has  not  been  a  file 
created  using  the  AUTOVON  phone  number  entered.  If  you  want 
to  create  one  enter  'YES  *.  If  you  do  not  want  a  permanent 
file  enter  'NO*. 

(3)  If  you  want  to  change  any  of  your  data  enter  'YES'.^  If 
you  do  not  want  to  make  changes  to  your  data  enter  'NO'. 

(4)  If  you  want  to  make  changes  to  any  of  your  force  groups 
enter  'YES".  If  you  do  not  want  to  change  your  force  group 
data  enter  'NO'.  All  force  groups  are  initially  set  equal 
to  zero. 

(5)  You  have  twenty  force  groups  available  to  you  in  your 
force  file.  Each  force  group  contains  30  values,  one  for 
each  year-group.  Enter  a  number  fr^m  1  to  20  corresponding 
to  the  force  group  you  want  to  use. 

(6)  This  display  shows  what  a  particular  force  group  looks 
like  with  the  current  force  levels  in  each  of  the  thirty 
year-groups.  To  change  any  of  the  force  levels  enter  the 
year-group  (1-30),  followed  by  a  comma,  then  the  new  force 
level,  followed  by  a  comma.  You  can  change  from  one  to  all 
thirty  this  way.  When  you  are  finished  entering  your  changes 
enter  an  asterisk.  If  you  do  not  want  to  change  any  levels  - 
maybe  you  just  wanted  to  look  at  them  -  simply  enter  an 
asterisk  only. 


Entering  an  'END'  will  terminate  that  run  of  AGER. 

2 

Suggest  you  make  a  chart  to  keep  track  of  your  force 
groups.  See  attachment  1  for  an  example. 
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(7)  If  you  want  to  make  changes  to  any  of  your  retention 
rate  groups, enter  'YES'.  If  you  do  not  want  to  make  changes 
enter  'NO*.  All  retention  rates  are  initially  set  equal  to 

1.0. 


(8)  You  have  twenty  retention  rate  groups  available  to  you 
within  your  file.  Each  rate  group  contains  29  values,  one 
for  each  year-group.  Only  29  are  necessary  because  no  one 
is  retained  beyond  the  30th  year.  En^er  the  numeric  code  1 
thru  20  of  the  group  you  wish  to  use. 

(9)  This  display  shows  what  your  rate  group  looks  like  with 
the  current  retention  rates  for  each  of  the  twenty-nine  year 
groups.  To  change  any  of  the  rates  enter  the  year  group  ( 1- 
29),  followed  by  a  comma,  then  the  new  retention  rate, 
followed  by  a  comma .  The  retention  rate  itself  must  contain 
a  decimal  point.  You  can  change  from  one  to  all  twenty-nine 
this  way.  When  you  are  finished  entering  your  changes  enter 
an  asterisk.  If  you  do  not  want  to  change  any  of  the  rates 
simply  enter  an  asterisk  only. 

(10)  Enter  the  number  of  years  you  want  to  age  the  force. 

(11)  Enter  the  number  of  year-groups  you  want  to  look  at. 

(12)  If  you  want  to  reach  a  certain  manning  level  for  your 
force  and  stay  at  that  manning  level,  enter  the  force  level 
you  want  to  achieve.  If  you  do  not  want  a  steady  force 
enter  ’0';  accessions  and  losses  will  then  dictate  your 
force  level . 

(13)  Enter  the  year  of  ageing  you  want  your  steady  force  to 
begin  in.  For  instance,  if  you  want  to  build  up  to  your 
steady  force  by  the  fifth  year  of  ageing  enter  a  *5’. 

(14)  If  you  want  to  use  a  force  group  enter  'YES If  you 
would  prefer  to  enter  new  force  levels  enter  'NO*. 

(15)  Same  as  (5). 

(16)  If  you  want  to  use  a  retention  rate  group  enter  ^’YES  * . 
If  you  prefer  to  enter  new  retention  rates  enter  ’NO'. 

(17)  Same  as  ( 8  )  . 


x  Ibid. 
2  Ibid. 


7 


(18)  You  have  the  option  of  using  the  same  retention  rates 
for  every  year  of  ageing  or  you  can  enter  new  rates  for  each 
year  of  ageing.  If  you  want  to  use  the  same  rates  for  every 
ageing  year  enter  'YES'.  If  you  do  not  enter  'NO'. 

(19)  If  you  want  to  enter  accessions  to  be  used  in  the 
ageing  enter  'YES'.  If  you  do  not  want  to  use  accessions 
enter  'NO'. 

(20)  Enter  the  accessions  you  want  to  use  for  each  of  the 
ageing  years.  For  instance,  if  you  are  ageing  a  force  for 
five  years,  enter  five  accession  figures  followed  by  an 
asterisk . 

Example*  100,  200,  500,  400,  20 0,  *  (100  corresponds  to 
ageing  year  1,  200  to  ageing  year  2,  etc.). 

(21)  If  you  want  to  input  new  retention  rates  for  the  next 
ageing  year  enter  ’YES'.  If  you  do  not  enter  'NO*. 

(22)  If  you  want  to  run  AGER  again  enter  ’YES'.  If  you  do 
not  want  to  run  aqain  enter  'NO*. 

(23)  This  display  indicates  AGER  is  finished  running. 


1  Ibid. 
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FORCE  GROUP 


DESCRIPTION 


1 

AIRMEN  DATA 

2 

AIRMEN  MALE  DATA 

3 

AIRMEN  FEMALE  DATA 

4 

BLANK 

5 

BLANK 

6 

OFFICER  DATA 

7 

BLANK 

8 

OFFICER  MALE  DATA 

9 

BLANK 

10 

BLANK 

11 

OFFICER  FEMALE  DATA 

12 

BLANK 

13 

BLANK 

14 

BLANK 

15 

BLANK 

16 

BLANK 

17 

BLANK 

18 

BLANK 

19 

BLANK 

20 

BLANK 

ATTACHMENT  1 


4872233 

.  .  .  .  .6 

YEAR  FORCE 

STRUCTURE 

.  YEAR 

YEAR 

GROUP 

1 

.  '  2 

3 

4 

5 

6 

IE 

850 

1101 

1165 

1024 

934 

855 

14 

11  SR 

1225 

1077 

982 

899 

750 

.  13 

1299 

1142 

1041 

953 

795 

535 

:  12 

1293 

1  179 

1079 

900 

663 

679 

11 

1337 

1223 

1020 

752 

770 

731 

10 

1382 

1153 

850 

870 

826 

623 

9 

1408 

1038 

1062 

1008 

761 

628 

8 

1272 

1301 

1235 

932 

769 

642 

7 

1530 

1453 

1097 

905 

755 

453 

6 

1779 

1343 

1108 

924 

555 

37 

5 

1351 

1115 

930 

558 

37 

0 

4 

1126 

939 

564 

37 

0 

b 

3 

964 

579 

38 

0 

0 

0 

2 

587 

39 

0 

0 

0 

0 

1 

41 

0 

0 

0 

0 

0 

LOSS 

0 

2932 

2563 

2240 

1965 

1727 

STRN 

22508 

19570 

17007 

14767 

12802 

11075 

ENTER  OK 

FOR  NEXT 

PAGE  OF  1 

REPORT 

4872233  . . . 

6  YEAR 

FORCE 

STRUCTURE  " 

YEAR 

YEAR 

GROUP 

l 

2 

3 

4 

5 

6 

30 

0 

0 

0 

0 

0 

0 

29 

_  0 

0 

0 

0 

0 

0 

28 

51 

47 

38 

38 

23 

15 

27 

78 

64 

63 

39 

25 

13 

26 

105 

103 

64 

40 

21 

22 

25 

172 

107 

67 

36 

37 

38 

24 

168 

106 

'57 

58 

59 

47 

23 

168 

90 

91 

93 

75 

66 

22 

229 

232 

236 

190 

168 

167 

21 

486 

493 

398 

352 

350 

347 

20 

720 

581 

514 

511 

507 

551 

19 

754 

667 

664 

659 

716 

929 

18 

712 

709 

703 

764 

991 

1048 

17 

735 

728 

792 

1027 

1086 

955 

16 

747 

813 

1054 

1115 

980 

894 

LOSS 

0 

2932 

2563 

2240 

1965 

1727 

STRN 

22502 

19570 

17007 

14767 

12802 

11075 

IF  YOU 

WISH  TO  RUN 

AGAIN  ENTER 

YES  ELSE  NO 

ATTACHMENT  2 


USERS  FLOW  CHART 


The  flow  chart  on  subsequent  pages  is  provided 
as  a  "road  map"  for  running  AGER.  The  symbols  used 
are  explained  below: 


A  display 
requiring  some 
manual  input 
from  the  user. 


The  computer  program 
makes  a  decision 
here.  Nothing  is 
required  from  the  user 


Connector  to  some 
other  page  of  this 
flow  chart. 


ATTACHMENT  3 


'  Enter 


J2>+r* 


ORKFILE:  LISTING/OF/AGER  (12/12/79) 


8:51  AM  WEDNESDA 


( 

( 


Oi 


100  *  SET  LIST  ERRLIST 

200  BEGIN  X  AA 

_ 3Q0 _ _ _ _ _ COMMENT  __  _  _ 

400  *«***********»**«**«*»«**«M««*. 

500  *****»****»*****»***«»**»*«****»»»»*»»»  a  **************  ****************** 

600 

700 _ p_bogpammer;.._a.i  c  james  r^.  stratton. _ _ _ _ _ _ _ _ _ _ 

800  LOCATION:  AFMPC/MPCDDP7 

900  RANDOLPH  AFB,  TX  .  78140 

1000  SPECIAL  REMOTE  CONTROL  CHARACTERS  USED  IN  THIS  PROGRAM  ARE! 

.Jioo _ 4"OCOOJ7_-  CLEAR  AND_HOM_E  _  _ _ _ _ _ _ 

1200  4 " 3C00"  -  HOME  ( DC4 ) 

1300  4” 13"  -  MOVES  CURSOR  UP  ONE  LINE  (DC3) 

1400  4" 11"  -  KEEPS  REMOTE  DEVICE  IN  RECEIVE  MODE  ( DC1 ) 

1500  4 " OD”  -  CARRIAGE  RETURN 

1600  4 "25"  -  LINE  FEEO  ~  ‘  '  . 

1 700  x*«<:«x******»****k*«******>«j<*«*****»><«*>»****»********»**«**»*****«***x*** 

1  800  ****»»****»******«*********«. ■»*■*******«*******  »*****.»  *********«***»****; 

1900  INTEGER  ARRAY  FORCE C 0 : 3 1 , 0 : 3 1 1 ,  FORCEHOLD [ 0 : 591 ; 

2000  REAL  ARRAY' RETRATES CO: 2817  RKTENh 0 L DC 0:5T1 ;  ~  1 

2100  REAL  RHOLD; 

2200  TRUCHSET  FI RSTNUMC " 1 23456789" ) . 

2300  RESTNUMI "01 23456783" ) ; 

“2400  FITE  rNPUT!  KIND  ^REMOTE:  UMITS  =  Cri71T/ATrTP^3“TvIAXRECS1^ZE=TT3?Cr',"MYUSE?3T, - 

2500  OUTPUT ( K I  NO  =  REMOTE , UN  I TS  =  CHAR ACTERS , MAXRECS I ZE= 1 920) ; 

2600  FILE  FORCEGROUPS(KIND=DISXPACK, 

2700  PACKNAME= "GUSDATA . " , MAXRECS I ZE  =  30 , BLOCKS  I ZE=450 , 

-  “  2800  UNrrs=T50RDS.  WUSrsT07AITEASS5rr7tREASr?r»n-5r; - •  - 

2900  FILE  UT 1 L ( K I ND  =  D I SKPACK , PACKNAME* "GUSDATA .  " , MAXRECS I ZE =  4 , 

3000  TI TLE  =  "AGEDFORCE/DATA/UT I L I ZAT I  ON . " , MYUSE= 10, 

3100  BLOCKS  I ZE3  400 , AREAS  = 1  , AREAS! ZE* 1 000, UNI TS  =  WORDS) ; 

- 7200 - rNTEGt'K'“YR5T0AGE7TR0PSD  r  S  P ,"  YR  ST CTST E"A DT/o T E A D YFtTRCE ;  ACCSPETRVR ;  TEMP", - - 

3300  II, 12,13, 14,15, TIM, REC, TA1 , TATI ; 

3400  EBCDIC  ARRAY  REPTNAME t 0 : 1 01 , REPLY (0 : 51 , T I TL.EARRAY CO : 25] , T I THOLD [0 : 25 J , 
3500  URAY  C  0 : 23) ; 

3500  BOOLEAN  *  STEA0Y5TATE ,  ACCESS  I oNSTISTPUT ,"CHGHATES;"D  I  DR1JN7GOTT I  I  Lt ,  UO  I F 1  LE  J 
3700  LABEL 

3800  I NPUTDATA, I NI T I AL 1 ZAT ! ON, STEADYPROC , NOTYET , REENTRY , Wl NDUP, 

3900  F I N I SHEO . OLORATES , OLDLEVELS , OLD ACCS , NEXTP AGEO , NEXT PAGE  1  , NEXTPAGE2, 

3000  AOEYEARS,  DTSPUAYEAR57STES0YrAFr,'RE0SEF0RCF,  RirUSERATi- S7  KEUSFACC5TNEX TPAGE, 

4 1  00  ACCESS  I ONS I  N.  B I GP  1  CTURE ,  NEXTPAGE3,  RATECHGRF.O ,  CHGCHECK ,  NCXTPAGE4  ,  THEENO ; 

4200  LABEL 

4300  REPLY AGAIN1 , TAI.LYFORCE , REPLYAGA I  M2 , REPLYAGA I  M3 , Cl  IANGERATES, 

4400  REPLY A3A I  N4,  REPLY  AG  A  i’N5,~R~E.PLYAGA  CNSTliH  T,  lNPUrilEVELS  .TNPUTRATES] 

4500  DEFINE 

4600  TA  »  1 NTEGER ( URAY  [173,7)*, 

4700  TAT  »  I NTEQER  <  URAY  C  7 J ,  10)4; 

- 4000 - fPAOE - - 

4900  OIDRUN: =FALSE; 

5000  IF  MYSELF . TASKVALUE  EOL  500 

5100  THEN  BEGIN 

- 5 ZOO  WRITE  rOUTPOT""?  ”THI  5^  PROGRAIT_CAN  _N0T"BE "RUN”  FRONT  Hi  S"OEVtCE  TT") - 

5300  00  TO  THEENO; 

5400  ENO; 

5500  0 I ORUN : • TRUE ; 

- 5000 - WRt  TETOOTPUT  ,~<48"-OCOOHJT  46"0025“T4&,'OQ25*1-,  48J1OBe5IJ-, — ■' - 

5700  4  8 " 0D25 " ,  4  8  " 0D25 " 4  8 " 0D25 " , X 1 0 , 


000001 

000002 

000003 

"000004 

000005 

000006 

_qqooo7 

oooooe 

ooooos 

0000 1C 
_00001  1 
000012 
000013 
000014 
00001 3 
CO  C  O  I  G 

00001 7 

ooooi a 

000019 

"000020 

000021 

00002? 

000020 

“000024 

000025 

000020 

000027 

-TT0C02B 

000029 

000030 

000031 

“000032 

000033 

000034 

000035 

00003. 

000030 

000039 

000041 
000042 
000043 
“000044 
000045 
00004G 
000047 
"000040 
000049 
000050 
000051 
“000032 
000053 
000054 
000055 
— 000056 
000057 


I 


5800 

5900  _ 

6000 
6100 
6200 
6300 
6400 
6500 
6600 
6700  _ 
6800 
6900 
7000 
7100 
7200 
7300 
7400 
.  75 Q0 „ 
7600 
7700 
7600 
-ZSOfl. 


"AAA  GGCGG  EEEEEE  FFFFFF  00003  RRRRR  CCCCC", 

"  EEEEEE" , 4 8" 0025 "  ,  X9 , "AA  AA  GO  GO  EE  _  FF  _ OO" , 

00  RR  RR  CC  CC  EE" , 48"0D25" ,  X8,  "AA  AA  "GO" ,  X7", 

"EEEE  FFFF  00  00  RR  RR  CC  EEEE" , 46"0D25" , 

X8, "AAAAAAA  GG  GGGQ  EE  FF  00  00  RRRRR  CC", 

_  X7 .  "EE“  .  43‘‘0D25"  .  X8 .  "AA  AA  GG _ GG  __EE _ _  FF_ _ 00", _ 

"  00  RR  RR"  CC  CC  EE" ,  48"0D2b" ,  X8,  "AA  AA  GGGGG" , 

••  EEEEEE  FF  00000  RR  RR  CCCCC  EEEEEE" , 

48"0D25",48"0D25" , "MODIFICATIONS  AS  OF:  DEC  79">); 

.WHEN  ( 6 _ _ _ 


INPUTDATA: 

G0TF1LE: =TRUE; 

TIM: =TIME(2)  ; 

.ACCESSI  ONS  LNP_UT_L=_^ALSF.J_ 
YRSTOSTEADY  :=  0; 

FOR  I  1 : =0  STEP  1  UNTIL  3) 


DO  FOR  12: =0  STEP  1  UNTIL  31  DO  FORCECI 1,123 
FOR  I  1 : =0  STEP  1  UNTIL  28  00  RETRATESC 11 3 : = 1 , Oi_ 


0; 


8000 

0100 

0200 

8300 

847)0" 

8500 

36C0 

3700 

“'8000 

8900 

9000 

9100 


WRI TEIOUTPUT, <48"0C001 1"  >  )  ; 

WRI TEIOUTPUT, < "AGGREGATE  MODEL  TO  AGE  SELECTED  ELEMENTS  OF  THE  FORCE", 
40"0025"  ,  "ENTER  YOUR  7-OIOIT  AUTOVON  NUMBER  (_]_.  E.  4872233)  .  “43"0D25", 


"THIS  DATA  IS  ESSENTIAL  FOR  FILE  MAINTENANCE  AND  MAY  HE  USED  TO" 
48"0025" , "VERIFY  UT l L I ZA T I  ON . " , 43“ 0D25" , " I F  YOU  DESIRE  TO  START", 

“  OVER  AGAIN  WHILE  YOU  ARE  WORKING  IN  AGEFORCE" , 48 " 0D25 " , 

"JUST  ENTER  AN  ’END'  RESPONSE  WHEN  A  'YES'  OR  ‘MO’  RESPONSE  IS", 

“"requestedT"  ,7isr'0D5'J‘,T7T,iicr77;\RrT  ai:'"rFror;oTr:_Tr''YatrT:^rt-Fr'’T.Tra--"T — 

’■  ANY  OTHER  T  I  ME "  ,  48"  0D25"  ,  “  THE  PROGRAM  MAY  TERMINATE  ABNORMALLY.1 


43 “ 3C00 1 3 " > ) ; 

READ!  INPUftTIMELIMIT  6303  ,  < A  1 2> , REPTNAME C 03  )  ; 

TT  TTMEL  I  MPT  "STAYS' TN~EFFcCT-FOR~!.' ITT  t!tr:~PilOGITAM~ 


-9200- — 

3300 

9400 

9500 

-9000 - 


IF  NOT  REPTNAME [03  IN  FIRSTNUM  THEN  GO  TO  INPUTDATA; 
FOR  I  1  : - 1  STEP  1  UNTIL  6  DO 
IF  NOT  REPTNAME  C l  1 3  IN  RESTNUM  THEN  GO  TO  INPUTDATA; 

REPLACE'  TT  TLEARRAYt"OT—BY — “-r" — FOR— 26-; - - 

REPLACE  T I TLEARRAY  CO J  BY  "AGEDEORCE/DATA/A" ; 

FOR  I  1 : =0  STEP  1  UNTIL  10  DO 
IF  REPTNAME  CM3  -  "  "  THEN 

- REPLACE-REPTNAMET  Ii  T-BY  “7 - - - - - - 


A4-2 


IlL 


000058 
000059 
000060 
000061 
000062 
000063 
000064 
000065 
000066 
_  000067 
000068 
000069 
000070 
_00007 1 
000072 
000073 
000074 
000075 
000076 
000077 
000078 
000079 
000080 
000081 
000082' 
000063 
-OOOCO-T 
000085 
00C03C 
00003"' 
-000068 
000009 
000090 
000091 

-000692 


000093 

000094 

000095 

-006006 


9700 

9000 

9000 

REPLACE  Tl TLEARRAY Cl  63  BY  REPTNAME C 03  FOR  11; 
REPLACE  FORCEGROUPS. TITLE  BY  T I TLEARRAY CO J ; 

IF  NOT  FORCEGROUPS. RESIDENT 

00009/1 
000 098< 
0000951 

1  0000 
10100 
10200 

1  0300 

THEN  BET3IN 

WRI TEIOUTPUT, <48"0C00" , "YOU  DO  NOT  HAVE  A 
"AND  RATE  DATA, " , 43"0D25" , "DO  YOU  WANT  TO 
"FI  .E?  (ENTER  YES  OR  NO )  . " , 4 8" 3C00 1 3" > ) ; 

SAVE  FILE  FOR  FO°CE  ", 
CREATE  A  PERMANENT  ", 

-  OOO  TOT.'i 

0001  011 
0001021 
OOOIOSi 

T040O 

1  0500 
10600 

1  0700 

-  '  READ  "Cl  MPUT;  <TA37  ,  REPCTCOJ  7  ; 

IF  REPLY  C  0  3  EOL  "END"  THEN  GO  FINISHED; 

IF  REPLY C03  EQL  "NO" 

THEN  BEGIN 

OCOI'041 

OOOIOSi 

000106' 

000107' 

10300 

10900 

1  1  000 
11100 

GOTFIXET'  =FAtTSE7  * 

FOR  1 1 : *0  STEP  1  UNTIL  99  DO 

BEGIN 

READ! UT 1 L  C I 1 3 , 4, URAYC03 ) ; 

“  0001  O':' 

0001 0' 
0001  1  ('( 
0001 1 1' 

T  7  200 

1  1300 

1  1400 

1  1500 

IF  "URA  Y TUI  S'  R  EPTNAME  COT  FOR- 7 
THEN  BEGIN 

Recall; 

GO  TO  AGEYEARS; 

OO0 1 1  2' 

000113: 
0001 1 4i 
0001  1  5i 

1  1  600 

1  1700 

ENO; 

END; 

0001  1  7< 

> 

% 

1  1800 
I  1900 
12000 
12100 
1  2200 
1  2300 
T2400  ' 
12500 
1  2600 
1  2700 
1230  0 
1  2900 
1  3000 
13100 
13200 
1  3300 
1  3400 
1  3500 
1 3000' 

1  3700 
I  3800 
1  3900 
14000 
14  100 
14200 
1  4300 
T4400 
1  4500 
1  4000 
1  4700 

14000~- 
14VCC 
1  5000 
15100 
15200 
1  5300 
1  5400 
1  5500 
15600  - 
1  5700 
1  5000 
15900 
1 6000  — 
1S100 
16200 
1  6300 

1  S400 
1  6500 
16000 
16700 
16800 — 
16900 
1  7000 
17100 
17200 — 
1  7300 
1  7400 
1  7500 

17600 - 

1  7700 


FOR  I  1 : =0  STEP  1  UNTIL  99  DO 
BEGIN 

‘  ~  READ  (  UT  ltd  1  3 , 47URAY101  )  ]  - - 

IF  URAYC01  =  "0”  THEN 
BEGIN 

REPLACE  URAYCOJ  BY  REPTNAMEE03  FOR  7; 

~~  REC :  =  I  Tf  ~  . 

REPLACE  URAYE73  BY  "0"  FOR  17; 

WR I TE ( UT 1 L  C I  11 , 4, URAY £03 ) ; 

I  1  : = 1 00; 

L0CK  (  UT[(_  r. - —  - - - - 

END; 

END; 

GO  TO  AGI-3YEARS;  _  _  _ _ _ _ _  _ _ _ 

ELSE  BEGIN 

FORCEGROUPS . MY USE  : =  2; 

FOR  ! 1 : =0  STEP  1  UNTIL  19  DO 

- VR1  T(t -cratiCKsnoaps  n  iiT<oore>~,  Fatr~rsrrs-cr ■sreri 

UNTIL  29  DO  ( I  3: =0) ) ; 

FOR  11=20  STEP  1  UNTIL  39  DO 

WRI TEtEORCEGROUPSr 1 13 , <30F6. 4> , FOR  12  1=0  STEP  1 

— - - UNTT[._Z«r'DOTT3T3rTTOTT7 - 

LOCK ( FORCEGROUPS ) ; 

FORCEGROUPS . MYUSE  :=  3; 

FOR  11 : =0  STEP  1  UNTIL  99  DO 

- BEOI-N - 

READ ( UT I L l 113,4, URAYC03 ) ; 

IF  URAYC01  =  "a" 

THEN  BEGIN 

- - - - - REPLACE . ORAYfOH  BY -RER-TRAME-E 0}~~FOR--Y-; - - 

REC :  = I  1  ; 

REPLACE  URAYC73  BY  ''O''  FOR  17; 

WRI TEtUTILC I  13 , 4, URAYC03 ) ; 

LOCK (UTIL) ; 

END; 

END; 

END 

ELSE  BEGIN 

FOR  I  1 : =0  STEP  1  UNTIL  99  00 

REAOCUTI  L C  I  n,4,  URAYC03  )  ; 

IF  URAYC03  »  REP  INANE £03  FOR  7 
THEN  BEGIN 

- - - - - REC  :■  =  t1 3 - - - 

GO  TO  EXT; 

END; 

END; 

-EXT- - - - - - 

WRI TEtOUTPUT, <48"OCOO" , "DO  YOU  WISH  TO  MAKE  CHANGES  TO  ", 
"YOUR  DATA?  (ENTER  YES  OR  NO)”, 

48 " 3C00 1 3" > ) ; 

- REACH  1-NPUT  ," <A3>--,-PEPLY-{  03- ) ; - - - — 

IF  REPLY  C03  EQL  "END"  THEN  GO  FINISHED; 

IF  REPLY C03  EQL  "NO"  THEN  GO  TO  AGEYEARS; 

END;  .  * 

REPLYAGA1N2: 


0001 1 i 
0001 1! 

—  OOOI  21 
00014 
0001 ?; 
000  I  2- 

~  00012- 
0001 2! 
0001 21 
0001 

-  00012-' 
00012' 
OOQi 31 
00013 

‘  -0CO1  3: 
ooo  i  s: 
0001 3- 
0001 

- 0001  •  • 

000  1  •: 
0001 3- 
0001 0! 
ooni.’it 
000  I  4 
00014; 
00014: 

— eooi  4. 

00014! 
COO !  I  ( 

oooi  -  r. 

-  0001  4! 
000 14> 
0001  Si 
00015' 

— GOG-1  s; 
0001b: 
00015 
000  K  - 
— 0004  C* 
0001 51 
0001 51 
0001 51 

—  OOOI  Gl 
00C1  6 

oooi  c>: 
000  1  6 
— oooi e- 
oooi  r>; 
oooic 

oooi g; 

- 000 1 c 

0001 
000  1  7 
0001 71 
—0004-7; 

oooi 7 : 

00017- 
0001 71 

_ DCOlVt 

0001 71 


1 

i 


17800  WR! TEIOUTPUT, <48"0C00" , "DO  YOU  WISH  TO  CHANGE  ANY  OF  THE  FORCE  ", 

17900  "GROUPS  (ENTER  YES  OR  NO ) ? "  ,  46" 3COO 1 3" > ) ; 

18000  REAOI INPUT, <A3>, REPLYCOI) ; 

13100  IF  REPLY [03  EQL  "END"  THEN  GO  FINISHED; 

18200  IF  REPLY  CO]  NEQ  "YES"  AND  REPLY  CO]  NEQ  "NO" 

1  8300_  THEN  GO  TO  REPLYAGA  I  N2 ;  _ _ _ _ 

18400  IF  REPLY  CO]  EQL  "NO" 

18500  THEN  GO  TO  CHANGERATES; 

1  8600 

10700  REPLY AGA  I  N3  :  _  _ _ _ _ _ _ 

18800  WR i TE ( OUTPUT , <48 " OCOO" , " THERE  ARE  20  FORCE  GROUPS  AVAILABLE  FOR  YOUR", 
18900  "  USE. ", 40"0025" . "ENTER  THE  NUMERIC  C0DE(1-20)  OF  THE  GROUP” 

19000  , 48 " 0025" ,  "  YOU  WISH  TO  USE . “ , 48 " 3C00 1 3 " > ) ; 

1 9 1 00  _  READ! INPUT, /, 1 1 );  _  _ _ 

1S200  IF  M  LSS  1  OR  II  GTR  20 
19300  THEN  GO  TO  REPLYAGA I N 3 ; 

19400  READ  (  FORCEGROUPS  C I  1  -  1 1 , <  30 1  6> ,  FOR  12:  =  0  STEP  1  UNTIL  29  DO  FORCE Cl  2 , 01  )  ; 

19500  WR 1 TE ( OUTPUT , <40"OC001 1 “ , "THE  CONFIGURATION  OF  GROUP  ",I2,"  IS  ", 

1  9600  '“'"'PRESENTLY  AS  TUCtOWS  .-7  4S"TJU25’r7 XT;™YR-GP’r7  ~ 

19700  48" 0025" ,  X2 ,  " 1  -  1 0" , X2,  1 0< XI ,  I  6 > , 48"0D25" , XI , " 1 1  -  20", X2, 

19800  I0CX1  ,  1 G) , 48"0D25" , XI , "21  -  30" , X2 ,  1 0 ( X 1 ,  I  6 ) , 

19300  48"0D252S" , "TO  CHANCE  THE  FORCE  LEVELS,  INPUT", 

20000 - -  YEARGI?OUP;  L'EVEL  ;'YEARCROUP7“','Tr8"0025"  ;  "LEVEtT,  ETCT7 — r£Xr— ; - 

20100  '■  "  2 , 364  ,12,1  024  40"OD25"  ,  "  TFPH I  NATE  INPUT  WITH  AN", 

20200  "  ASTERISK. " ,48"0025“, "YOU  CAN  CHANGE  ANY  OR  ALL", 

20300  "  YEAR  GROUPS  THIS  WAY . “ , 46 " 3COO 1 3 " > , 

30400 - - H-j-POR-  +2+^—0— STEP — 1— UPFH E — 29 — DO— FORGE t-l-2-,  0] ■) ■; - 

20500 

20600  READ! INPUT, /.FOR  I2:=0  STEP  !  UNTIL  59  DO  FORCEHOLDC 1 2] ) ; 

20700  FOR  12  :s  0  STEP  2  UNTIL  58  00 

•••>0800 - I  F — (+0 — 8= — FORCEHOfcEH  -<-249— e-TP— o— ANG—tO  -LEQ  GO  AND  -  M  O— MOQ—+-) -  - — 

20000  EQL  0 

21000  THEN  FORCE C  I  3  -  1 , 0  ]  :=  FORCEHOLDC I  2+1 ] ; 

21  100 

21  200 - - 

21300  WRI TEC FORCEGROUPS C II  -  1 ] , <30I6>, FOR  I2:=0  STEP  1  UNTIL  29 
21400  DO  FORCE C 12,0] ); 

21500  LOCK ( FORCEGROUPS 1 ; 

21  600- - FOR  I  2 :  =0  STEP'-1--tlNT-tt.--29--©0-feRee{  tPrOtT-0; - 

21700  FOR  12:  - 0  STEP  1  UNTIL  59  DO  FORCEHOLD C I  2 ]  :*  O; 

21800  GO  TO  REPLYAGA I N2 ; 

2  1  900 

22000 -  CHANGF.RATESr--  — — — - — — - - - — — - 

22100  WR ITEIOUTPUT, <48 " OCOO" , " DO  YOU  WISH  TO  CHANGE  THE  RETENTION  ", 

22200  "RATES", 48"0D25" , "(ENTER  YES  OR  NO)  7 " , 48" 3C001 3" > ) J 

22300  READ (  I NPUT,  <A3> , REPLY  C  0 1  )  ; 

22400  IF  REPLYCO]  EQL  "EMD'—THEN-GO-FTNTSMEO; - ' - 

22500  IF  Rf-pLY  CO)  EQL  "NO" 

22600  THEN  GO  TO  AGEYEARS; 

22700  IF  REPLY  C  0 1  NEQ  "YES" 

22800 -  THEN  GO  TO  eHANGERATESt - - - - 

22900 

23000  REPLYAGA INS: 

23100  WRI TLIOUTPUT, <48'0C00",  "RETENTION  RATE  ", 

23200 - -  -■-GROUPS  7—  THRU  20- ARE- AVA  I  LABL&,  48 "  0D2S^ - 

23300  "ENTER  THE  NUMERIC  CODE  OF  THE  GROUP  YOU  WISH  TO  CHANGE,", 

23400  48" 3C00 1 3" >  )  ; 

23500  READ!  I NPUT, / ,  I  1  ) ;  ,  ’ 

23600  - IF  I  I  LSS- 1  OR  I  I  GTR-  20 - - - - 

23700  THEN  GO  TO  REPLYAGA I  NS ; 


00017 
00017 
~0061* 
00016 
00018 
00018 
00018 
00018 
00018 
000 1  8 
000T8 
00018 
00019 
00019 
00019 
00019 
00019 
0001  9 

■■ooorj 

00019 

00019 

00019 

-00020 

00020 

00020 

00020 

-©0020 

00020 

00020 

00020 

-00020 

00020 

00021 

00021 

-00021 

00021 

00021 

00021 

0002-1 

00021 

00021 

00021 

-60022 

00022 

00022 

00022 

-00022 

00022 

00022 

00022 

-00022 

00022 

00023 

00023 

-00023 

00023 

00023 

00023 

00020 

00023 


A4-4 
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772C0 
2/300 
2  '400 
’  7500 

2  7C00 

3  7  700 
27000 
27900 
28000 
28  100 
20200 
20300 
204  00- 
28500 
20600 
23700 
28800— 
28900 
29000 
'29100 
29300- - 
20300 
•29400 
29500 


READCFORCEGROUPSt  19+1 11. <29FG.4>,F0R  I  2 : =  0  STEP  1  UNTIL  20 

DO  RETRATESC 12] ) ; 

WRfTE( OUTPUT,  <49"0C00"  ,  "THE  CURRENT  RATES  ARE!  "  ,  45”0D25"7  "X27  ”  "YRS"'; - 

48"  0025"  ,  "  1  -  10", X2,  I0CX1  ,F5.  3)  ,43"0D25,')  ”11  -  20",  X2, 

10CX1 , F5. 3) , 48"0D25",  "21  -  2f  ' , X2 , 9 ( X 1 , F5 . 3 > , 48" 0D2525" , 

"TO  CHANGE  RATES,  INPUT  YEARGROUP  RATE , Y EARGROUP , RATE , ETC 48" 0025" , 

(EX“  2, ",  463,1  5,‘T  376,'i")  .  48’  0025"“,  "TERMI  MATE"  I  NPUT  WTTK  AN— — — - 

"  ASTER  I  SK  .  "  ,  48 ''  0025"  ,  “YOU  CAN  ENTER  ANY  OR  ALL  RATES", 

"  THIS  WAY .  ",  48" 3C00 1 3 " > , FOR  I2:=0  STEP  1  UNTIL  28  DO  RETRATESC 121); 
READ^  I  NPUT  ,  /  ,  FOR  12: -Q  STEP  1  UNTJL  57  DO  RETENHOLO  Cl  )  ; 

FOR  12' =0  STEP  2  UNTIL' 56  00  '  ~  '  ~  ~  "" 

IF  (RHOLD  : =  RETENHOLDC 121 )  GTR  0  AND  RHOLD  LEQ  30  AMD  ( RHOLD 
MOO  I  1  EOL  0 

THEN_  RETRATESC  RHOLD  -  13  :=  RETENHOLDC  12+13; _ _ _ 

WRI TEC FORCLGROUPSC 1 9+1 11 , <29F6 . 4> , FOR  I2:=0  STEP  1  UNTIL  28 

DO  RETRATESC 123); 

FOR  12:  =0  STEP  1  UNTTL  23“  DO~RE  TRATT:  ST  T27  T~.  Oy - - - 

FOR  12:  =0  STEP  1  UNTIL  5/  DO  RETENHOLDC 1 21  :=  0; 

LOCK ( FGRCEGROUPS ) ; 

CO  TO  CHANGERATES; 

AGfeYFARS: 

WRI  I  EC  OUTPUT ,  <46' OCOO" ,  HOW  MANY  YEARS  DO  YOU  WISH  TO  AGE  THE  FORCE", 

"  -  1-29  , 48" 3CG0 I  3" >  )  ; 

RFADt  I  NPU T -A-YT3 TOAOEM - - - - 

IF  YRSrOAOr  ISO  1  CR  YRSTOAGE  GTR  29 
THEN  CO  TO  ACGYEARS; 

-OTSPLAYf  ARS: - - - - - - — - - 

WR  I  TF I  OUTPUT ,  1 48  "  OCOO"  ,  "  HOW  MANY  YEAR  GROUPS  DO  YOU  WISH  TO  DISPLAY", 

"  -  1-30  ?“.48"3C0013">); 

PF ADC  I NPUT, / , YRCPSDI SP )  ; 

IF  YRO30I  3P-  LSS  - 1-  CR-YRGPSDI-SP  GTR  30 - - - 

THEN  GO  TO  D  I  Sf’LAYEARS ; 

WRI TECOUTPUT, <48"OCOO" , " I F  YOU  WANT  TO  ACHIEVE  AND  MAINTAIN  A  ”, 

"STEADY -STATE  FORCE,".  48 " 0D25 " , " THEN  ENTER  THE  FORCE  LEVEL", 

- U.  YCSO  WANT  -  TO  ACI+I  EVE-  u  ,— 48"GOe5Ji-,~uT>THE«VM  &e~€NTER~(M-2-ERO>-r-^ - 

48" 3C00 1 3 ” > ) ; 

READ ( I NPUT, / , STEADYFORCE) ; 

IF  STEADYFORCE  MEQ  0 

THEN  STEADYSTA-TE  TRUE - - - -  - - - - - - — - 

ELSE  STEADYSTATE  : =  FALSE; 

IF  STEADYSTATE 
THEN  DEGIN  %  88 

STEADYEAR; . -  -  — .  .  -  - - - - - — 

WRI TECOUTPUT, <48" OCOO" , "HOW  MANY  YEARS  DO  YOU  WANT  TO  TAKE  ”, 

48" 0D25 " , " TO  FIRST  ACHIEVE  ThE  STEADY-STATE  FORCE?  C1-29)", 
48"3C001 3" >  3 ; 

- READC  INPUT,  /,  YRSTOSTEADYLf-  - - - - — 

IF  YRSTOSTEADY  LSS  1  OR  YRSTOSTEADY  GTR  29 
THEN  GO  TO  STEADYEAR; 

END;  %  D0 

REPLY AGA INI: 

IF  NOT  G0TF1LE  THEN  GO  TO  1 NPUTLEVELS ; 

WRITECOUTPUT,  <.48"0C00",  "IF  YOU  WOULD  LIKE  TO  SELECT  A  FORCE  OR", 

- COUP— THEN.  -ENTER  YES--ELSE  NO.'-'-^av  3C00 1  3"5L; - - - 

READ! I NPUT. <A3> , REPLY C 03 )  ; 
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29800  IF  REPLY  CO]  EQL  "END"  THEN  GO  FINISHED; 

29900_ |  F  REPLY  CO]  NEQ  "YES"  AND  REPLYCO]  NEO  "NO" 

30000  THEN  GO  TO  REPLYAGAI  Ml  ;  . .  * . . 

30100  IF  REPLY  CO]  EQL  “YES" 

30200  THEN  BEGIN 

30300  WR I TE< OUTPUT, <48" OCOO" , "THERE  ARE  20  FORCE  GROUPS  AVAILABLE  FOR", 

30400  ~  "  YOUR  USE ,  "  ,  48“ 0D25"  ,  "ENTER  THE  NUMERI  C  "CODEC  f-2S)  ~6F1?, 

30500  48 1 0D25" , "  THE  GROUP  YOU  WISH  TO  USE . " , 48" 3C001 3" > ) ; 

30600  READ! INPUT, /,  I  1  )  ; 

30700  IF  II  LSS  1  OR  I  1  GTR  20 

30800  . .  THEN  GO'  TO  REPLYAGAINY;  "  " 

30900  READ ( FORCEGROUPS t  M  -  1  1 , <301 6> , FOR  I  2 : =0  STEP  I  UNTIL  29 

31000  DO  FORCE C 12,0]); 

31100  GO  TO  TALLYFORCE; 

31200  ' .  END;  . . . “  '  ~ 

31300  INPUTLEVELS: 

31400  WRi TEIOUTPUT, <40"0C00", "ENTER  30  YEAR  GROUP  FORCE  LEVELS, ASTERl SK” , 

31500  ”  WILL  TERMINATE  I NFUT" , 48 " 3C00 1 3" >) ; 

3  I  COO  READ  Cl  NPUT ,  / ,  FOR  TV  r ~=  0  STEP  T"  UNTTL  _29~  DO“FORCE  C  rTTOT  JT — - - 

3  1  700 

31800  TALLYFORCE: 

31900  FOR  I  1 : =  O  STEP  1  UNTIL  29  DO  F0RCEC31.0]  :=  FORCE£31,0]  +  FORCEC 11,03; 

32000  - - 

32100  REPLYAGAIN4: 

32200  IF  NOT  GOTFILE  THEM  GO  TO  INPUTRATES; 

J23C0  WRI TEIOUTPUT, <48"0C00" , "DO  YOU  WISH  TO  USE  THE  RETENTION  RA“ , 

32400  - TES  rENTER‘TrES'WTTO’r-T’’--4S'"3COOT3”3rT; - 

'>2300  RFAD(  INPUT,  <A3>,  REPLY  [0]  )  ; 

32600  IF  REPLY  CO)  EQL  "END"  THEN  GO  FINISHED; 

32700  IF  REPLY  CO)  NEQ  "YES"  AND  REPLY  CO]  NEQ  "NO" 

32800“  THEN'  GO  T0”  REPEYAGATN4^ - - - - - 

32900  IF  REPLY  CO]  EQL  "YES" 

33000  THEN  BEGIN 

33100 

33200 - REPCYACTArme: - 

33300  WRI TEIOUTPUT, <48"0C00" , 

33400  "RETENTION  RATE  GROUPS  1  THRU  20  ARE  AVAILABLE  FOR  USE.", 

33500  46-0025",  " ENTER  THE  NUMER I C  CODE" , 

33  700  RE AO <  INPUT,/,  I  I >J 

33800  IF  II  LSS  1  OR  11  GTR  20 

33900  THEN  GO  TO  REPLYAGAIN6; 

34 ni'a - READC FORCEGROUPS M-9-H  H  r^SF-Or  4-*-,-F€IR— Y2-:  gQ-STEP  1  UNTI-k  28 - 

34  00  DO  RETRATES  C I  2] ) ; 

341  0  GO  TO  OLDRATES; 

34300  END; 

34400  —  INPUTRATES: - — - - — — 

34500  FOR  1 2 :  =  0  STEP  1  UNTIL  28  DO  RETRATES  C I  2  ]  :  a  )  ,  0; 

34000  WRI -'•FCOUTPUT,  <48"0C00",  "ENTER  29  RETENTION  RATES,  AN  ASTERISK  WILL  ", 
34700  "TERMINATE  I NPUT . " , 43"0D25" ,  "ENTER  WITH  DECIMAL  POINT,  ", 

04000 - u  <  EXAMPLE^-  -4  23  r  1  r0I-4567T-.-994-F"-r40'^3C00-l-3^,->-H - - - - - - 

34900  READt INPUT,/, FOR  I  1 : =  0  STEP  1  UNTIL  26  DO  RETRATESC I  I J ) ; 

35000 

35100  OLDRATES: 

35200  --  WRI  TEC  OUTPUT  ,  <48 "OCQO'V'OO- Y0U--1  NTENB-TO--USE  -THS— SAME-  RF.TENT40N-RATES"  r- ■ 

35300  "  FOR  EVERY  SIMULATION  YEAR  7  ",  46 "0025” , "ENTER  YES  OR  NO" , 48 "3C00 1  3” > ) J 

35400 

35500  RATECHGREQ: 

35600  -  REAOt  I  NPUT,-<A3>-,  REPL-Y  CO]  )-f - - - - - 

J570Q  IF  REPLY  CO)  EQL  "END"  THEN  GO  FINISHED; 
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IF  REPLYC03  NEQ  "YES"  AND  REPLY  CO]  NEQ  "NO" 

THEN  GO  TO  RATECHGREQl  -  -  _  _ - 

IF  RFPl.Y  £03  EOL  "NO" 

THEN  CHGRATES  1  RUE 
ELSE  CHGRATES  :=  FALSE; 

.  IF  STEADYSTATE  _ _ _ _ _ _ _ _ _ 

THEN  GO  TO  STEADYPROC ; 

ACCESSIONSIN: 

_WR  I TH  f  Oil  r PUT ,  < 48" OCOO" ,  " IF  YOU  WISH  TO  INPUT  ACCESSIONS  ENTER  YES,", _ 

"  ELSE  ENTER  NO" ,48"3C001  3"  >  )  ;  "  . . . 

READC  I NPUT,  <A3>, REPLY  CO]  )  ; 

IF  REPLY  C  O  3  EQL  "END"  THEM  GO  FINISHED; 

IF  REPLY  C  0  ]  EQL  "YES"  _  _  _ _ _ _ _ 

THEN  BEGIN  *•;  CC  . .  . . .  . 

ACCESS  IONS  INPUT  TRUE; 

WR l TE ( OUTPUT  , <48"0CO0", "ENTER  ACCESSIONS  FOR  EACH  OF  THE  “,12, 

"  SIMULATION  YEARS.  ",48“0025",  "EX-'  100,300,500  ETC.", 

43" 3C001  3"  >,*  YRSTOAGE); 

READC  INPUT, /.FOR  I  1  :  = 1  STEP  1  UNTIL  YRSTOAGE  DO  FORCE  CO,  111); 

END 

ELSE  IF  REPLY  CO]  NEQ  "MO" 

'Then 'go  To  access  ions  i'N; 

OLDACCS: 

"■REENTRY":  ~  ~  ■ 

WRITE (OUTPUT,  <48 “OCOO" , 70 ( ) , 40"0D25" , X33, "SUMMARY  OF  I NPUT" , 

48'0026"  ,;<3,  "NAME  OF  REPORT:  "  ,  A 1  2 , 48  "  0025  "  ,  X3 , 

"■(  LARS  TO  A  >i\  THE  FORCE:  "  ,  I  P,  48"0025"  ,  X3,  "  /FAR  GROUPS", 

- - “y ( y -g |  ■ , , a l  ay  1  ^7  T2T 4 0 " 0 0'2 V  7X'S;  "'STE'AD'r-ST A TTmESTWEiTT  " , 

40" 1 1 " , A3, X3,  I 6> , REP  I  NAME  CO] , YRSTOAGE ,  YROPGOI SP, 

IF  STEADYSTATE  THEN  "YES"  ELSE  "MO  "  ,  STEADY!- ORCE )  ; 

WRITE  I  OUTPUT,  <X3,  "STEADY  STATE  IN  HOW  MANY  YEARS:  " ,  I  2 , 4 3" 0D23" , X3 , 

- "  V  R  -T5P  ”7X257"  YE  AR~0  NETT)  RCI~L  EVECS7"3  B"TJtrZ5'r7X37~~1  -TCT7X27 - 

IOC  I C, XI  ) , 48 " 0025 " , 

X3, " 11 -20" , XI  ,  101  1G, XI  ) ,4  8"0D25" , X3, "21 -30" ,X1 , 1 0<  I  6, X 1  ) , 40" 0025" , 
X4,  "YRS",X2G,  "RETENTION  RATES" , 48" 0D25" , X3 ,  " 1  - 1 0" , X2.  ^ 

,  X2, 9C F5. 3, XI ) , 40" 11 " >, YRSTOSTEADY’ FOR  M  :=  0 

STEP  1  UNTIL  29  00  FORCE C 1  I , 0 3 , FOR  11  :  =0  STEP  1  UNTIL  28  DO 

RETRATFS  C I  13); 

•  I  V  ACCESS  CONST  NPUT  “THEN - ' - - - - - — 

WRI TEC  OUTPUT, <X4 , "YRS" , X26, " ACCESS  I ONS"  ,  48 "0025" , X3, "2- 1 1 ",X2, 

IOC  I  6, X)  ) , 40 “0025" . X3 ,  " I  2 • 2 1 " , X 1 ,  1 0 (  I  6 , X 1  ) , 48"0D25" , X3 ,  " 22  - 30" , X 1 , 
9< I  6, XI) , 40" 1 1 " > , FOR  I  1 : a  1  STEP  1  UNTIL  29  DO  FORCE! 0, I  1 3 ) ; 

WRTTETC  0UTPUT7  * 7  OX  "  *""774  8  T  T  "  v )-; - 

NEXTPAGE: 

WR  I  TE  (  OU  TPUT ,  <  "ENTER  OK  FOR  NEXT  PAGE  OF  REPORT'',48"3COOI3">>; 

-REAOCNNPur,  <A2>  ,  REPtcrtorr; - ' — * - - - 

IF  REPLY  C  03  NEQ  "OK" 

THEN  GO  TO  NEXTPAGE ; 

FOR  II: -1  STEP  1  UNTIL  YRSTOAGE  DO 

- BEGIN  X  DO - — - - - - - - — - 

FORCE  C  3 1  ,  113  :=  F0RCEC0.I13; 

FOR  12: =1  STEP  1  UNTIL  29  DO 
BEGIN  X  EE 

- FORCEt  12.  tri-r-*-F0Retr?t-2--i^ - - 

FORCE  (31,113  '•  *  FORCE C  31 , 113  +  FORCE  C  I  2,  I  1  3  ; 
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41000 
4190Q _ 

FORCE C 30 ,  11  3  :=  FORCEC30,I1]  +  FORCE!  12-1,11-1]  -  F0RCEtl2,ni: 

END;  X  OF  12  LOOP 

00041 
_ _  00041 

42000 

IF  STEAOYSTATE  ANO  11  QTR  YRSTOSTEADY 

0004  2 

42100 

THEN  BEGIN  %  FF 

00042 

42200 

TEMP  :  =■  FORCECOl.MJ  -  STEADY FORCE; 

00042 

4 2000  _ 

IF  TEMP  LSS  0 

00042 

42400 

THEN  BEGIN  %  GG 

00042 

42500 

FORCE  10,  1  1  1  :«  FORCECO, I U  -  TEMP; 

00042 

42600 

FeRCEC31.il]  :=  STEADYFORCE; 

00042 

4.270.0 _ 

END:  5?  GO 

00042 

42800 

1 F  TEMP  GTR  0 

00042 

42900 

THEN  BEGIN  %  HH 

00042 

43000 

IF  13: =FORC£CO, 1 1 ]  - 

TEMP  GEQ  0 

00043 

43  1  00 

THEN  BEGIN  %  I  1 

00043 

43200 

""  'FORCE'C  3T7TTI 

:  =  STEAbYFbfTCF; 

00043. 

43300 

FORCECO, in  : 

■=  FORCECO,  in  -  TEMP; 

00043 

4  34  CO 

END  X  1  1 

0004S- 

4  3000 

ELSE  BEGIN  %  JJ 

** 

00043' 

43C00 

■ . .  "Foffcin  3Trn7~ 

:  =  F0RCET5T,  IT3  -  FORCECd,  M 

00033 

43700 

FORCECO, [1]  I 

=  0; 

00043 

43800 

END;  X  JJ 

00043 

4  3900 

ENO;  %  HH 

00043 

44000 

END;  %  FF 

00044' 

44100 

"IF  11  NEO 

YRSTO AGE  AMD  CHGRATES 

00044 

44?00 

THEN 

BEGIN 

00044: 

44300 

CHGCHECK: 

00044 

44400 

WR1 TE10UTPUT, <48"0C00", " DO  YOU  WISH  TO  INPUT  NEW  RETENTION  ", 

00044. 

■14500 

"RATES  FOR  SIM  YR  " , I 2, 48" 0D25" , " ENTER  YES  OR  MO", 

000441 

446  00 

48" 3C00 1 3" >  ,  Jl+1); 

00044' 

44700 

RFADC  1 NPUT, <A3> , REPLY  CO] ) ; 

00044 

•i  IPOO 

IF 

REPLY  C  0]  EQL  "END”  THEN  GOfTNISHED; 

0TJG44: 

44900 

IF 

REPLY  CO]  NEQ  "YES "  AND  REPLYC01  NEQ  "NO" 

00044' 

45000 

THEM  CO  TO  CHGCHFCK; 

0C045I 

45100 

IF 

REPLY  CO]  EQL  "YES" 

00045 

45200 

THEN  BEGIN 

000451 

45300 

FOR  15: =0  STEP  1  UNTIL  28  DO  RETRATESC 1 5]  :=  0; 

00045: 

40400 

WRITECOUTPUT, < 48 "0 COO" , "ENTER  29  RETENTION  RATES,  ", 

00045. 

4  5500 

"ASTERISK  WILL  TERMINATE  1 NPUT . “ . 48"0D25" , 

00045! 

45600  “ 

.  "ENTER  WIIH  DECIMAL  POINT!  T - 

“0004131 

45700 

"  EXAMPLE:  . 123, 1 . 0, , 456" , 

00045' 

45800 

"7, , 994) ", 40"3C0013">) ; 

000451 

45900 

READ! 1 NPUT, /, FOR  15: =0  STEP  1  UNTIL  28  DO  RETRATES C 1 5] > ; 

00045' 

46000 

'  WRITErOUTPUTT  ■T48''TJCOO~7X4V''YT?S~TXT7; 

-  000461 

46100 

"RETENTION  RATES  FOR  SIM  YR  ",!2, 

00046 

46200 

48"0D25” , X3, "1 -10",X2, 10CF5. 3, XI ) , 

00046; 

46300 

4 8" 0025", X2, "1 1 -20" , X2 , 1 0 < F5. 3 , X 1 > , 

00046: 

‘  46400  " 

4 0  0D2<3  j  X2 ,  21  "‘29  ,  X2 ,  9(  I-  o .  3,  XI  )  (  43  11  ^  t 

- “OOQ4&* 

46500 

11+1, FOR  15: *0  STEP  1  UNTIL  26  DO  RETRATESC 1 5] ) ; 

00046! 

46600 

NEXTPAGE4 

: 

000461 

46700 

WRI TECOUTPUT, <"ENTER  OK  WHEN  READY  TO  CONTINUE", 

00046 

46600 

‘  ~  '  '  48“3C001  3X73 - 

—  0004V< 

46900 

READ!  INPUT,  <A2>, REPLY  CO] ) ; 

00046! 

47000 

IF  REPLY  C  0 ]  NEQ  "OK" 

000471 

47100 

THEN  GO  TO  NEXTPAGE4; 

00047 

4  7200 

ENDT 

■00047/ 

47300 

END;  ■ 

0004  7' 

47400 

END;  X 

DD 

0004?- 

47500 

GO  WINOUP 

; 

* 

00047; 

47600  ' 

0004T* 

47700 

3TEADYPROC: 

00047; 

1 


Xtiis  FAii£  IS 


..T  yn.uin  mcricAW* 


47800  F OR  13: =1  STEP  1  UNTIL  30  DO 

47900 _ FORCE  C  Oj  I  3  3 _ :  »  0;  __ _ _ _ _ _ _ 

•16000  TEMP  :  =  (STEADYFORCE  -  FORCE C 31 , 0] )  /  YRSTOSTEADY ; 

46100  IF  TEMP  LSS  0 
48200  THEN  TEMP  : =  0; 

40300 

48400"  '  NOTYET: 

48500  FOR  13: =1  STEP  1  UNTIL  YRSTOSTEADY  DO 
48600  FORCE  CO,  13]  : =  F0RCEC0.13]  +  TEMP; 

48700  FOR  13: =1  STEP  1  UNTIL  YRSTOSTEADY  DO 

"40800  BEGIN  S  ' KK  .  "  ‘  ~  "  *'  "  ~ 

48900  FOR  14: =1  STEP  I  UNTIL  29  DO 

49000  BEGIN  %  LL 

49100  FORCE  f  1  4  ,  13]  :  =■  FORCE  t  I  4  -  1  ,  I  3- 11  *  RETRATES  Cl  4  -  1)  ; 

'49200  FORCE  [31,13]  ~:  =  F6RCET3T,  l'3T"~+  'FCITC ED  r47T 3T;  '  ~ 

49300  END,  %  LL 

49400  FORCE C 0 1 , I  3 1  :=  FORCE [31,  13]  +  FORCE [0,  I  3] J 

49500  END;  %  KK 

4  9500  IF  FORCE  C  3T"  YRSTOSTEADY]  CECTSTCTDYFORCE - ~ ~ - — —  — 

49700  THEN  M  :  =  99 

49800  ELSE  BEGIN  X  KK 1 

49000  ! 1 : =0 ; 

50000  "■  TEMP  :  =  ( STEADY FORCE  -  FORCE  C 3  f,  YRSTOSTEADY ]  )  /  YRSTOSTEADT; 

50100  IF  TEMP  LSS  1  THEN  TEMP  :a  1; 

50200  END;  X  KK I 

50.300 _ FOR  jJLi  = 1  STEP  1  UNTIL  YRSTOSTEADY  00 _ 

00400  FOR  14:  =  1  STEP  1  UNTIL  31  DO 

50500  FORCE C I  4 , 13]  :*  0; 

SOGOO  IF  I?  EOL  99 

.50700 _ THEN  BEGIN  %  MM _ _ _ _ 

50300  '  FOR  1 3:  = YRSTOSTEADY  V  1  STEP  1  UNTIL  YRSTOAGE  DO 

50900  FORCE [ 0 , 13]  :=  999999; 

5  I  000  GO  TO  REENTRY; 

51100  END;  %  MM 

5 1 200  GO  NOTYET;  * . 

51300 

51400  WINDUP 

51300  WRI  TECOUTPUT,  <44  "OCOO " , X 1 9, A12, X5,  I  2.  "  YEAR  FORCE  STRUCTURE" , 48" 1 ]"> , 

VTGOO - REPTNAME  COT  V TROT  BAG  EFTT] - - - 

51700  WRI TECOUTPUT [SPACE  1  J  ,  < X 1  ,  " YEAR" , X25,  "YEAR" , 48" 11 " > ) ; 

51800  WRI  TECOUTPUT  ,  <:48"  11  ",  XI  ,  "GROUP"  ,  X6,  "  1  ",  5(X9,  I  2)  >,  FOR  II  :  *2  STEP  1  UNTIL 
51900  IF  YRSTOAGE  LEO  5  THEN  YRSTOAGE  +  1  ELSE  6  DO  11); 

52000 - —WRI  TE  (  OUTPUT  ,  <  C  XC ,  t  27  »(-X5r  I  6  >7  4  "  VI  “-)->  ;-FOR-H  1  «  I F  YRGPSD ESP  L-EQ--H5 — TT4EN - 

32100  YRGPSD I SP -  1  ELSE  14  STEP  -1  UNTIL  0  DOCI 1+1.  IF  YRSTOAGE  LEQ  5  THEN 

52200  YRSTOAGE  +  1  ELSE  6, FOR  12: =0  STEP  1  UNTIL  IF  YRSTOAGE  LEQ  3  THEN 

52300  YRSTOAGE  ELSE  5  DO  FORCE C 11,121]); 

52400  --  WRI  TECOUTPUT,  <48"  I  I  " ,  X4  ."LOSS"  ,  X4r  (Gt  5  <X5tU  G»t-FOR  -  I  -  STEP— V- UN  T-H.-  -I-F - 

52500  YRSTOAGE  +  1  LEQ  6  THEN  YRSTOAGE  ELSE  5  DO  FORCE C 30 ,  I  2) ) ; 

52600  WRI TECOUTPUT, <48" 11 ",X1 , "STRN",X4,  I  6, 5CX5, I 6)>, FOR  I2:=0  STEP  1  UNTIL  IF 
52700  YRSTOAGE  +  1  LEQ  6  THEN  YRSTOAGE  ELSE  3  DO  FORCE C 3 1 ,  I  2 1 ) j 

32800 - 1 P-YROPSDFS P- 1 EO  F5-AND— YRSTOAGE— bEO-  5 - 

52900  THEN  GO  TO  FINISHED; 

53000  IF  YRGPSD ISP  GTR  15 
53100  THEN  BEGIN  %  NN 

53200 - NEXTPAOEO: - - - - - - - — - — - - 

53300  WRI TEtOUTPUT, <"ENTER  OK  FOR  NEXT  PAGE  OF  REPORT" , 46"3C0013"> ) ; 

53400  READ! INPUT, <A2> , REPLY  103 ); 

53500  IF  REPLY  CO]  NEQ  "OK" 

53600 - — - THEN- GO  TO  NEXTPAGEOr— - = - - - - - - - - - - — - 

53700  WRI TECOUTPUT, <48 "OCOO" ,X19,A12,X5, 12,"  YEAR  FORCE  STRUCTURE" , 48" II "> , 


00047 
0004  7 
""  00046: 
00048 
0004  6 
000  10 
occ  11. 
C  0048' 
00048. 
0004  0 
‘00048. 
00048' 
000491 
00049 
“0004  sj 
00049 
0C049- 
00049’ 

•~troo4C! 

00049 
0004  9. 

_ 00049 

00  Do  O' 

00050 
00050 
00050 
“'00050 
00050: 
00050 
00050 
TOOSC- 
00050 
00051  : 
0005  ’ 
“0005  . : 
0005  1  : 
00031  ■ 
00051 s 
— 00051' 
0005  I 
00051 . 

0005  r 

-  00032.’ 
00052 
00057. 
00057 

—  00057- 
00057 
0005. i 
0005: 

— OOOSr 
00057! 
00053’ 
00050 
— 0003 
0005 7. 
OOOS'9 
0005  ' 
-0005:  i 
0005C 


33000 
53900.  _ 
54000 
54  100 
54200 

54  3.0.0 _ 

54400 

54500 

54G00 

54700  _ 

54800 

54900 

55000 

5  5  1  00 

55200 

54300 

55400 

33500 

35600 

53700 

55800 

55900 _ 

50000 
56100 
56200 
34300 
5*4  00  ' 

5*1300 
5GC00 
56700 
560OO~~ 
86900 
37000 
57100 
"87200 
57300 
57400 
57500 
57600 
57700 
57800 
57900 
30000 
53100 
53200 
53300 
58400 
50500 
53600 
53700 
58800 — 
58900 
59000 
59100 
39200 
59300 
59400 
59500 

59600 - 

59700 


REPTNAMECO] , YRSTOAOE+1 ) ; 

.  WR  l  TECOUTPUT  C SPACE.  1  1,  <XJ  .7YEAR",  X25,  "YEAR".,_4.9."_l  U'>.  Li _ _ 

WRI TE ( OUTPUT . <48“ 1 1  ",  X  I , “GROUP" , XG,  " 1 " , 51 X9,  1 2)  > ,  FOR  I  1  : -2  STEP  1  UNTIL 
IF  YRSTOAGE  LEO  5  THEN  YRSTOAGE  +  1  ELSE  6  00  II); 

WRITE! OUTPUT, <  (X2, I  2,  * ( X5, 1 6) , 48" 1 1 " ) > , FOR  I  1 : = I F  YRGPSDISP  LEQ  30  THEN 

_ YRCP3DICP-_1_  ELSE  29  STEP  -1  UNTIL  15  DO  [  11  +  1  .  I F  YRSTOAGE  LEO  5  THEN _ 

YRSTOAGE  ?  I  ELSE  6, FOR  12: =0  STEP  1  UNTIL  IF  YRSTOAGE  LEO  5  THEN  ~ 
YRSTOAGE  ELSE  5  DO  FORCE! 11,1211); 

WR I TE ( OUTPUT , <48 " 1 1 “ , X 1 , " LOSS" ,X4, I  6 , 5 ( XS , I  6 1  >  , FOR  !2:=0  STEP  1  UNTIL  IF 
YRSTOAGE  +  1  LEQ  6  THEN  YRSTOAGE  ELSE  5  DO  FORCEC30, 1 21 ) ; 

WRI  TE<  OUTPUT  ,  <‘48"  1  1  ",  XI  ,‘"STRN",  X4,  I  6, 51X5,  I  6 )  >  ,  FOR  l  2:  =  0  STEP  1  UNTIL  if 
YRSTOAGE  +  I  LEQ  6  THEN  YRSTOAGE  ELSE  5  DO  FORCEC  31 ,  123); 

END;  %  NN 
IF  YRST0A3F  LEQ  5 

THEN  GO  TO  F I  N 1  SHED ;  ~ 

NEXTPAGE 1 : 

WRI TEIGUTPUT, <"ENTER  OK  FOR  NEXT  PAGE  OF  REPORT"  ,  48"3C001  3"  >  )•; 

READ  (  1  NPUT,  <  A2> ,  REPLY  C  O'TT;  ~  ’  ' 

IF  REPLY COI  NEQ  "OK" 

THEN  GO  TO  NEXTPAGE 1; 

IF  YRSTOAGE  GEO  12 

THEN  GO  TO  ~BT5P  I  CTURE  ;  ' 

WR I TE ( OUTPUT . <48 " OCOO" , X 1 9,  A 1 2,  X5,  12,"  YEAR  FORCE  STRUCTURE"  ,  48" 1 1 ” >  , 
REPTNAMECO] , YRSTOAGE+1  )  ; 

WRITECOUTPUTC ST ACE  1]  , <X1  ,  “YEAR" , X25, "YEAR", 48" 11 "> ) ; 

" ur i TE(auvpar;<‘48,rrT"7xr,"5RcoF'TT^7'1 7,r75'cxg,T2TS'7Turr-nT-=8  step  t  umi  il  - 

IF  YRSTOACE  LEO  11  THEN  YRSTOAGE  +  1  ELSE  12  00  II); 

WR I TE ( OUTPUT, < ( X2, I  2, * ( X5, I  6) , 48" 1 1 " ) > , FOR  I  1  :  = I F  YRGPSOISP  LEQ  15  THEN 
YRGPSOISP- I  ELSE  14  STEP  -1  UNTIL  O  00  C  I  1  + 1  ,  I F  YRSTOAC-E  LEQ  1  1  THEN 

YRSTOAGE  ELSE  11  00  FORCE C M ,  I  2 ] 3 ) ; 

WRITE! OUTPUT, <48“ 1 1  ",  X I , "LOSS"  ,  X4 ,  16,51 X5,  I  6 ) > ,  FOR  12:=6STEP  1  UNTIL 
IF  YRSTOAGE  LEQ  11  THEN  YRSTOAGE  ELSE  11  DO  F0RCEC30, 121); 

WR  f  TEC OOTPUT7< 4_ffMT'T7XT7,r5TRN"  ,  X47r675  FX5  "TOT  >7  FOR'  TZT 5 6  '  STEP  T  "  UNTIT: - 

IF  YRSTOAGE  LEO  11  THEN  YRSTOAGE  ELSE  11  DO  FORCE C 3 1 ,  1 21 ) ; 

IF  YRGPSDISP  LEQ  15 

THEN  GO  TO  FIN1SHE0; _ _ 

NEXTPAGE3 : 

WRI TECOUTPUT, < "ENTER  OK  FOR  NEXT  PAGE  OF  REPORT" , 40"3C001 3" >) ; 

READ! INPUT,  <A2> , REPLY  CO] ) ; 

I  F  REPLY  COI  NEG~’rOK"'r  ' - - - 

THEN  GO  TO  NEXTPAGE3; 

WR I TE I  OUTPUT , <4 9 “OCOO" , XI 9, A1 2, X5, 12,"  YEAR  FORCE  STRUCTURE" , 48" 11 "> , 
REPTNAMECO] , YRSTOAGE+1 ) ; 

WRI  TEC  OUTPUT! SPACE  Tr,'<X f7’rVEAfT'7X?57'^E'AFr,  48"  1  1  lrTTJ - - — - - 

WRI TECOUTPUT, <48" 11  ", XI  , "GROUP" ,X6,  "7" , 51X9,  I 2)>, FOR  |1 : «8  STEP  1  UNTIL 
IF  YRSTOAGE  LEQ  11  THEN  YRSTOAGE  +  1  ELSE  12  00  II); 

WRI TECOUTPUT, < I X2,  I  2, «<X5.  16) , 48" 11  - )> , FOR  I  1 t ■ I F  YRGPSDISP  LEQ  30  THEN 

-  YRGPSDISP  -  1“  ELSE  29  '3TEP~  -t~  UNTTL"  1  5~00f  1  ttT;tf  TRSTCAGg— LEQ-I  1  THEN — 

YRSTOAGE -  5  ELSE  6,  FOR  1 2 ; = 6  STEP  1  UNTIL  IF  YRSTOAGE  LEQ  11  THEN 
YRSTOAGE  ELSE  11  DO  FORCE  I  I  1 , I  2 1 3 ) ; 

WRI TECOUTPUT,  <48" I  1  ” , XI ,  "LOSS" . X4,  16, 5CX5,  I  6) >, FOR  I2.  *6  STEP  1  UNTIL 

IP  YRSTOAGE-  -LEO--  11  THEN— YR3TOA6E— E-LSE’  Vi  DO  -FORCE-C OOrt-gT-)-; - 

WRI TECOUTPUT, <48" 1 l ", XI , "STRN" , X4 , 16,51X5, 16) >, FOR  12: *6  STEP  1  UNTIL 
IF  YRSTOAGE  LEQ  11  THEN  YRSTOAGE  ELSE  11  DO  FORCEC 31 , 1 21 ) J 
GO  TO  FINISHED; 

B! OP I CTURE: 


000536 

_ 000539 

000 34 C 
00054 1 
000542 
000343 
ObO‘5‘4‘4 
000545 
000546 
000547 
0005 48 
000549 
000550 
000351 
000552 
000553 
000554 
00053C 

- 0OO55T 

000557 

000550 

000359 

000500 

000561 

000562 

000563 

- 000564 

000363 

000303 

000367 

- 00036  C! 

000569 
000570  i 
000571 

- 000572 

000573 

000574 

000573 

- 000571- 

00057/ 

000576 

000579 

000580 

000581 

000582 

000583 

- 000584 

000583 
000566 
000587 
— — 000588 
000509 
000590 
00059 1 

- 600592 

000593 

000594 

000595 

- 000596 

000597 


this  PAGE  is  B£GI  quality  p mcucablb 
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59800 
59900 
GOOOO 
60100 
60200 
60300 
60400 
60500 
60600 
60700 
60800 
60900 
61000 
Gil  00- 
61200 
61300 
61400 
61500 
6  1  600 
61700 
61300 
61  900 
62000 
62100 
62200 
62300. 
62400 
62500 
62600 
_6?700 
62300 
62900 
63000 
_63V0_0 
63200" 
63300 
63400 
63500 
"63600 
63700 
63800 
63900 
64000" 
64100 
64200 
64300 

64400 

64500 

64600 

64700 

64800" 

64900 

65000 

651  00_ 

65200 

65300 

63400 

65500 

63600" 

63700 


WRI TEIOUTPUT, <48 "OCOO ”,  X t 9,  A12.X5,  12, "  YEAR  FORCE  STRUCTURE" , 40" J 1" > , 

_ -  REPTNAMECOl  .  YRST.OAGE+i  I; _ _ _  _ _ _ 

WR1 TE< OUTPUT: SPACE  11 , <X1 , "YEAR" , X23, "YEAR" , 40" 1 1 "> ) ; 

WR I TE<  OUTPUT, <48 " 1 1  ",  XI , "GROUP" , X4 , " 1 0" , 4 ( X9,  I  2) > , FOR  I  1 : = 1 5  STEP  5 


YRSTOAGE+1 


11-5  THEN 


0  DO 
UNTIL 


1  .3  T.EP _ 5..  LINI-LL _ 


UNTIL  15  DO 


UNTIL  YRSTOAGE  +  1  DO  II ,  IF  YRSTOAGE+1  NEQ  11-5  THEN 

_ _ YRSTOAGE+1-  )  r _ _ _ _  _ _ 

FOR  I  1  :  =  I F  YRGPSUISP  LEO  15  THEN  YRGPSDISP-1  ELSE  14  STEP  -1  UNTIL  0  DO 
WRI TE( OUTPUT, <48"11",X2, 12, X4, I  6, 5(X5, I6)>, 11+1, FOR  !2:=9  STEP  5  UNTIL 
YRSTOAGE  DO  FORCE C I  1 ,  I  2 1 ,  1 F  YRSTOAGE  NEQ  12-5  THEN 

- FORCE  C  l  1  ,  YRSTOAGE  J--L; - - - 

WR I TE ( OUTPUT ,<48 "11", XI, "LOSS" , X3 ,  I  6 , 5 ( X5,  I  6 ) > , FOR  I2:=9  STEP  5  UNTIL 
YRSTOAGE  DO  FORCE C 30,  I  2 ] ,  I F  YRSTOAGE  NEQ  12-5  THEN 
F0RCEC30, YRSTOAGE]  ); 

WRC-TGC  OUTPUT.,  +48".  U  "  t  .-'-'TTRN",  X3  X-6L-5-LX5,  -i.6J_i-,-EQR._LJ2.L=9  _STEe_5..UNXii- 

YRSTOAGE  DO  FORCE C31 , 12]. IF  YRSTOAGE  NEQ  12-5  THEN 
F0RCEC31 . YRSTOAGE]  1; 

IF  YRGPSOtSr  LEQ  15 

- THEN  -GO  .TO  F  I  MLSHEQ; _ _ _ _ _ _ _ _ — - - 

NEXT PAGE 2 : 

WRITE! OUTPUT , < "ENTER  OK  FOR  NEXT  PAGE  OF  REPORT" , 48" 3C001 3“ > )  ; 

.READ  LI  NRUX^.<.A2'U  R.EPLYXQJJ  J _ - _ 

IF  REPLY  CO]  NEQ  "OK" 

THEN  GO  TO  NEXTPAGE2; 

WRI TE(0UTPU1\  <48"0C00",X19,A12,X5,  12, "  YEAR  FORCE  STRUCTURE" , 48" 1 1" > , 

_ REP.IWAtlELOLXfcSJCI/LQEil} ; _ _ _ _ _ 

WRI TE<  OU TPUTC SPACE  1  ]  ,  <X1  ,  "YEAR" , X25,  "YEAR" , 48" 1  1 " > ) ; 

WRI TEfOUTPUT, <48" 1  I " , XI , "GROUP" , X4, " 10" , 4(X9,  I  2) > , FOR  11  : » 1 5  STEP  5 
UNTIL  YRSTOAGE  +  I  00  I  I,  IF  YRSTOAGE  +  1  NEQ  11-5  THEN 

_ Y!SST0\GC+1  _)  ; _ _  _ _ _  _  _ 

FOR  I  I  :  -  i  F  YRGPSDf  SP'LEQ  30  THEN  YRGPSDfSP-1  ELSE  29  STEP  -1  UNTIL.'  1b  DC 
WRI TECOUTPUT, <48” 11 " ,X2,  I 2, X4 ,  I  6, 5CX5,  I  6) > ,  II +1 , FOR  I2:~9  STEP  5  UNTIL 
YRSTOAGE  DO  FORCE C 1  1 ,  I  2 ] ,  I F  YRSTOAGE  NEO  12-5  THEN 
FORCE [  I  1  , YRSTOAGE]  ); 

WR  I  TE  (OUTPUT',  <  4  8  1  T  "  ,  X 1  ,  "  LOSS'"  ,X3 ,  rS7?5TX5 ,  I  6  >  >  ,  POR  I2:=9~STEP  5  UNTIL 
YRSTOAGE  DO  FORCE C 30 ,  I  2 3 ,  I F  YRSTOAGE  NEQ  12-5  THEN 
FORCE C 30, YRSTOAGE]  ); 

WR I TE ( OUTPUT , <48 " 1  1  ",  X 1 , " STfiN" , X3 ,  I  6 , 5 ( X5,  I  6 ) > , FOR  I2:=9  STEP  5  UNTIL 

- ,-6-:V3g  T50-T0T<C'ir3r,T2I7TT'-YR3T0AGE  NEO'  12-5  THEN - ' - 

FORCE C 31 , YRSTOAGE]  1; 

FINISHED: 

— wri TE< output ,<" rr'Yeo  wtsh  tct  run- soatn  'enter- ye^~elsx~no  ”T  ~ 

48” 3C00 1 3" > ) ; 

READ( I NPUT, <A3>, REPLY  CO] ) ; 

IF  REPLY [01  EQL  "END"  THEN  GO  FINISHED; 

I  r  REPLY  COXEGL^YES" - ~  - 

THEN  BEGIN 

IF  D1DRUN 
THEN  BEGIN 

- T1M-:-=TtMET2T-"TITTy  — - - - - - - — - - - — 

TA 1 : =  TA+ 1 ; 

TATI : -TAT+TIM; 

REPLACE  URAYC7]  BY  TATI  FOR  10  DIGITS; 

RE'RL  ACE  "URAY  CT7  ]  BY 'TAT  TOR  7  0I3TTS"; 

WR I TE ( UT I L  C  PEC] , 4 , URAY  C  0] ) ; 

LOCK (UTIL); 

LOCK ( FORCEGROUPS ) ; 

END";  '  ■ 

GO  TO  INPUTOATA; 


00059 

_ _ .Q0059' 

00060' 
OOOGC  f 
00060.  ] 

_  00060  , 

00060.  | 
00060  | 
00060' i 
_._._0Q0E0  ' 
OOOGO.  ! 
0006C’ 
00061 i 

_  0006 1  ’ 

00061  : 
00061 
0006  I  • 

_  00061 

00061  ’ 
00061 
00061 ■ 

_  000 SI 

00032 

000G2 

00062 

_  00062 

000G2. 
00062' 
00002' 
ooosr 
00062 
000G2' 
00063'  i 
00063 

- 00063; 

00063 

00003- 

000G3 

- - 0006. 

00063 

00063' 

00063 

. . OOOir-u 

00064 
000G4 ; 
00004; 
- 00064- 

00064; 

000641 

00064 

- "00064- 

00064' 

00005' 

00065 

- 00065; 

00065: 
00065- 
00065: 
~~  "DD065I 

00065 


A4-11 


I 

i 

I 


65800 
G5900 
66000 
061  00 
66200 
66300 
66400 
66500 
66600 
66700 
66800 
66900 
67000 
67100 
67200 
6  7  300 
67400 
67500 
67600' 
•7700 


ENO; 

IF  REPLY  CO  1  NEO  "NO 

Then  begin 


000630 

000650 

“000660 


WR1 TEt OUTPUT,  <48"0C00I 1  "  >  >  ; 
GO  TO  FINISHED; 

ENO; 


THEENO: 

IF  DIDRUN 
THEN  BEGIN 

T  T  M  ■'  =77  WETZT-TTH 
TATI  :  =  TAT  l-T  I  M; 

TA 1 : -TA+1 ; 

REPLACE  URAY [73  BY  TATI  FOR  10  DIBITS; 
REPLACE  'URATHTT  “BVTA  T'TOR'T  D  TGTTST" 

WRl TEIUTl LCREC] , 4, URAY CO 3 ) ; 


LOCK (UTIL); 
END; 

’ WrTTETo u t  put;  << 


f”  3000  V  3” 


END.  X  AA 


0006CI 

000662 

000663 

- 000664 

000CG5 

000666 

000667 

- 000068 

000669 

000670 

000671 

- V 00672 

000673 

000674 

00067 

000675 

000677 


